﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class UsuariosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As UsuariosBE
        Dim tmpUsuarios As UsuariosBE = New UsuariosBE()
        Try
            With tmpUsuarios
                .Admin = convertDTFromDb.convertInt32(dr.Item("Admin"))
                .Area = convertDTFromDb.ConvertString(dr.Item("Area"))
                .Autoriza = convertDTFromDb.ConvertString(dr.Item("Autoriza"))
                .Autorizador1 = convertDTFromDb.convertInt32(dr.Item("Autorizador1"))
                .Autorizador2 = convertDTFromDb.convertInt32(dr.Item("Autorizador2"))
                .ClaPerfil = convertDTFromDb.ConvertString(dr.Item("ClaPerfil"))
                .ClaUsuario = convertDTFromDb.ConvertString(dr.Item("ClaUsuario"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .Monto = convertDTFromDb.ConvertDecimal(dr.Item("Monto"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .Password = convertDTFromDb.ConvertString(dr.Item("Password"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                .Tipo = convertDTFromDb.convertInt32(dr.Item("Tipo"))
            End With
            Return tmpUsuarios
        Catch ex As Exception
            Throw
        Finally
            tmpUsuarios = Nothing
        End Try
    End Function
End Class
